 ORG $4700
*
*
TITLES LDA #$9D
 STA $A25
 JSR BUGIN
 JSR DATIN
 LDA #$A
 LDX #14
 LDY #$70 
 JSR $A48
 JSR STARTL
 LDA #$5D
 STA $A25
 RTS
*
*
BUGIN LDA #215
 STA Y1
 LDA #20
 STA X1
LUP1 JSR PRBG
 LDA #$80
 JSR $FCA8
 LDA Y1
 CLC
 ADC #4
 STA Y1
 CMP #$3B 
 BNE LUP1
LUP2 JSR PRBG
 LDA X1
 SEC
 SBC #2
 STA X1
 CMP #2
 BCC LUP2
 JSR PRBG 
 RTS
*
PRBG LDX X1
 LDY Y1
 LDA #$32
 JSR $A48
 RTS
*
*
DATIN LDA #200 
 STA Y1
 LDA #10 
 STA X1
LUP3 JSR PRDT 
 LDA #$80
 JSR $FCA8
 LDA Y1
 SEC 
 SBC #4
 STA Y1
 CMP #$40
 BCS LUP3 
 NOP 
*
PRDT LDX X1
 LDY Y1
 LDA #$34 
 JSR $A48
 RTS
*
X1 DFB 0
Y1 DFB 0
**************************
*
* LOAD HIRES SCREEN       
*
***************************
*
*
ALO EQU $900 
AHI EQU $800 
XCOUNT EQU $ED 
YCOUNT EQU $9C3 
XP1 EQU $FA
YP1 EQU $FB
X2 EQU $FC
Y2 EQU $FD
NUM EQU $EB
TN EQU $31D
SN EQU $31E
READ EQU $33D
WRITE EQU $352
BUFLO EQU $328
BUFHI EQU $329
BLK EQU $4900
*
*
STARTL LDA #0
 STA NUM
 STA BUFLO
 LDA #$14
 STA TN ;TEMP
 LDA #$4E
 STA BUFHI
 LDA #$F
 STA SN
LOOP1 LDA NUM
 CMP #60
 BCC JM
 RTS
JM JSR SETUP1
 JMP LOOP1 
*
*
SETUP1 ASL A 
 TAX
 LDA BLK,X
 STA XP1
 INX
 LDA BLK,X
 STA YP1
 INC NUM
 LDA NUM
 ASL A
 TAX
 LDA BLK,X
 STA X2
 INX
 LDA BLK,X
 STA Y2
 JSR BLOCKIN
 INC NUM
 RTS
*
*
BLOCKIN JSR READ
 LDA #0
 STA TAB+1
 LDA #$4E
 STA TAB+2
SECOND LDA #32 
 STA YCOUNT
 JSR LOOKUP
 LDA X2
 STA XP1
 LDA Y2
 STA YP1
 LDA #32
 STA YCOUNT
 JSR LOOKUP
 DEC SN
 BPL OUTSL
 INC TN
 LDA #$F
 STA SN
OUTSL RTS
*
*
LOOKUP LDY YP1
LOOKUP1 LDA AHI,Y 
 STA ADDR+2
 LDA ALO,Y
 STA ADDR+1
 LDA #4
 STA XCOUNT
 LDX XP1
TAB LDA $4E00 ;CHANGEABLE 
ADDR STA $2000,X ;CHANGEABLE
 INC TAB+1 
 INX
 DEC XCOUNT
 BNE TAB
 INY
 DEC YCOUNT
 BNE LOOKUP1 
 RTS    
*
*
